home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / Homicide Investigation 1.0 / card_6193.txt < prev    next >
Text File  |  1990-07-15  |  2KB  |  83 lines
  1. -- card: 6193 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4306
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on showStatement
  8.   global crimCard, victSubject, victObject, setFeature
  9.  
  10.   -- Pevent user from getting muliple answers
  11.   if setFeature is true then exit showStatement
  12.  
  13.   put item 1 of field "Char Features" of card crimCard into tellFeature
  14.   if the number of this card = crimCard
  15.   then
  16.   repeat while crimFeature = tellFeature
  17.     put nonCharCards + random( maxCharacters ) into randChar
  18.     put field "Char Features" of card randChar into tellFeature
  19.     put item 1 of tellFeature into tellFeature
  20.   end repeat
  21. end if
  22. put "The deceased came in for a 6-month checkup " into myStatement
  23. put "last week. When" && victSubject && "left " after myStatement
  24. put "there was someone in the waiting room. I " after myStatement
  25. put "guess it was a friend or relative. Anyway, " after myStatement
  26. put "they left together. I didn't get a real good " after myStatement
  27. put "look but I noticed the" && tellFeature & "." after myStatement
  28. put myStatement into field "Statement"
  29. put true into setFeature
  30. end showStatement
  31.  
  32. on hideStatement
  33.   global setFeature
  34.   put false into setFeature
  35.   put empty into field "Statement"
  36. end hideStatement
  37.  
  38.  
  39.  
  40.  
  41. -- part contents for background part 10
  42. ----- text -----
  43. Phil Cavities
  44.  
  45. -- part contents for background part 11
  46. ----- text -----
  47. male
  48.  
  49. -- part contents for background part 12
  50. ----- text -----
  51. 35
  52.  
  53. -- part contents for background part 13
  54. ----- text -----
  55. medium
  56.  
  57. -- part contents for background part 14
  58. ----- text -----
  59. blonde
  60.  
  61. -- part contents for background part 15
  62. ----- text -----
  63. short
  64.  
  65. -- part contents for background part 17
  66. ----- text -----
  67. blue
  68.  
  69. -- part contents for background part 19
  70. ----- text -----
  71. dentist
  72.  
  73. -- part contents for background part 20
  74. ----- text -----
  75. dental office
  76.  
  77. -- part contents for background part 21
  78. ----- text -----
  79. eyeglasses, cologne
  80.  
  81. -- part contents for background part 23
  82. ----- text -----
  83. generous